﻿Public Class BElamina

#Region "Declaración de variables"

    Inherits BEmuestras
    Private codLamina As Integer
    Private codParafina As Integer

#End Region

    Sub New()
    End Sub

    Sub New(ByRef pCodLamina As Object, _
            ByVal pCodParafina As Object)

        Me._codLamina = pCodLamina
        Me._codParafina = pCodParafina

    End Sub

    Public Property _codLamina() As Integer
        Get
            Return Me.codLamina
        End Get
        Set(ByVal value As Integer)
            Me.codLamina = value
        End Set
    End Property

    Public Property _codParafina() As Integer
        Get
            Return Me.codParafina
        End Get
        Set(ByVal value As Integer)
            Me.codParafina = value
        End Set
    End Property

End Class
